10 REM GENERAL SPRITE UTILITY 20 REM (C) 1986 BY 30 REM JOERG TUTTAS 40 REM AUS HOEXTER 50 REM ---------------------------------------------------------------------- 60 REM BEFEHLE: 70 REM #S,SPR.NR.,X,Y,VOR/HINTERGRUNG,GROSS/KLEIN X,G/K-Y,MC/HC,BLO (CR) 80 : 90 REM #C,SPR.NR.,SC,MC1,MC2 (CR) 100 REM #O,SPR.NR. (CR) 110 REM #AN,SPR.NR.,SPEED,ANZAHL,BLPCK 1,BL.2,...,......,........ (CR) 120 REM #AO,SPR.NR. (CR) 130 REM #MS,SPR.NR.,SPEED,RICH (CR) 140 REM #MO,SPR.NR. (CR) 150 REM 160 REM---------------------------------------------------------------------- 170 : 180 POKE 53280,0:POKE 53281,0:PRINT"[147]"CHR$(14):DIM P(77) 190 PRINT" [199]ENERAL [211]PRITE [213]TILITY": 200 PRINT"[150] [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]" 210 PRINT" [207]N [196][146]ISK OR IN [205][146]EMORY" 220 GET A$ 230 IF A$="D" THEN 260 240 IF A$="M" THEN 280 250 GOTO 220 260 PRINT" [198]ILENAME:";:INPUT FI$ 270 OPEN 1,8,1,FI$:PRINT#1,CHR$(0);CHR$(192); 280 PRINT" PLEASE WAIT" 290 FOR T=0 TO 75:READ P(T):NEXT 300 FOR Y=49152 TO 50438 STEP 17:S=0 310 FOR X=0 TO 16:READ A:S=S+A 320 IF A$="M" THEN POKE Y+X,A 330 IF A$="D" THEN PRINT#1,CHR$(A); 340 NEXT 350 IFP(PO)<>STHEN PRINT"[158]?[196][193][212][193]-[198]EHLER IN[160][218]EILE"PEEK(63)+PEEK(64)*256:GOTO380 360 PO=PO+1:NEXT 370 PRINT"[158]!! [208]ROGRAMM [207][203]":CLOSE 1:END 380 CLOSE 1:END 390 : 400 REM PRUEFSUMMEN 410 : 420 DATA 1564,1752,2039,1855,2130,1832,2041,1828,1692,1891,2256,2571 430 DATA 2223,2645,2751,2063,2517,2189,1903,2430,2135,2183,2516 440 DATA 2303,2069,2588,2074,2050,2192,2246,2600,2917,2407,2067,1426 450 DATA 2294,2050,2269,2071,2225,2075,2048,2592,2428,2348,3149 460 DATA 1661,2197,2261,2679,1423,2489,2695,2373,1811,1629,2250 470 DATA 2338,2431,2425,1999,2373,2322,2416,2613,2760,2424,2348,2152 480 DATA 1940,2165,1917,2125,2048,2400,1666 490 : 500 REM PROGRAMM DATAS 510 : 520 DATA169, 44,141, 8, 3,169,192,141, 9, 3,120,169, 63,141, 20, 3,169 530 DATA194,141, 21, 3, 88,169, 0,141,192, 3,141, 25, 9,133,170,141,181 540 DATA 3,169, 0,133,252,169,202,133,253, 96, 32,115, 0,201, 35,240, 6 550 DATA 32,121, 0, 76,231,167, 32,115, 0,201, 83,240, 22,201, 67,240, 27 560 DATA201, 65,240, 32,201, 77,240, 42,201, 79,240, 52, 32,121, 0, 76,231 570 DATA167, 32,115, 0, 32,177,192, 76,174,167, 32,115, 0, 32,252,193, 76 580 DATA174,167, 32,115, 0,201, 79,240, 30,201, 78,240, 35, 76,174,167, 32 590 DATA115, 0,201, 83,240, 34,201, 79,240, 39, 76,174,167, 32,115, 0, 32 600 DATA 50,194, 76,174,167, 32,115, 0, 32, 93,195, 76,174,167, 32,115, 0 610 DATA 32,199,194, 76,174,167, 32,115, 0, 32,111,195, 76,174,167, 32,115 620 DATA 0, 32,240,196, 76,174,167,120, 32,253,174, 32,158,183,134,253, 32 630 DATA253,174, 32,138,173, 32,247,183,165, 20,133,250,165, 21,133,251,201 640 DATA 0,208, 3, 76,221,192,173, 16,208, 5,253,141, 16,208, 76,235,192 650 DATA165,253, 73,255,133,254,173, 16,208, 37,254,141, 16,208, 32,253,174 660 DATA 32,158,183,134,252,164,253, 32,209,193,165,250,153, 0,208,200,165 670 DATA252,153, 0,208,173, 21,208, 5,253,141, 21,208, 32,115, 0,201, 72 680 DATA240, 23,201, 86,240, 2, 88, 96,165,253, 73,255,133,254,173, 27,208 690 DATA 37,254,141, 27,208, 76, 49,193,173, 27,208, 5,253,141, 27,208,162 700 DATA 0, 32,225,193,224, 0,240, 30, 32,115, 0,201, 71,240, 24,201, 75 710 DATA240, 2, 88, 96,165,253, 73,255,133,254,173, 29,208, 37,254,141, 29 720 DATA208, 76, 97,193, 96,173, 29,208, 5,253,141, 29,208,162, 0, 32,225 730 DATA193,224, 0,240,238, 32,115, 0,201, 71,240, 23,201, 75,240, 2, 88 740 DATA 96,165,253, 73,255,133,254,173, 23,208, 37,254,141, 23,208, 76,144 750 DATA193,173, 23,208, 5,253,141, 23,208,162, 0, 32,225,193,224, 0,240 760 DATA191, 32,115, 0,201, 77,240, 23,201, 72,240, 2, 88, 96,165,253, 73 770 DATA255,133,254,173, 28,208, 37,254,141, 28,208, 76,191,193,173, 28,208 780 DATA 5,253,141, 28,208, 32,115, 0, 32,253,174, 32,158,183, 32,235,193 790 DATA138,153,248, 7, 88, 96,136,152,160, 0,201, 0,240, 7,200,200, 24 800 DATA106, 76,213,193, 96, 32,115, 0,201, 44,240, 1, 96,232, 96,198,253 810 DATA165,253,160, 0,201, 0,240, 6,200, 24,106, 76,241,193, 96, 32,253 820 DATA174, 32,158,183,134,253, 32,253,174, 32,158,183,134,250,165,253, 32 830 DATA235,193,165,250,153, 39,208,230,253,173, 28,208, 37,253,240,220, 32 840 DATA253,174, 32,158,183,142, 37,208, 32,253,174, 32,158,183,142, 38,208 850 DATA 96, 32,253,174, 32,158,183,138, 73,255,141, 21,208, 96,173, 25, 9 860 DATA 41, 1,201, 1,240, 12,173, 25, 9, 41, 2,201, 2,240,112, 76, 49 870 DATA234,160, 0,169, 1,133,169,165,170, 57, 85,195,208, 14,200,165,169 880 DATA 24, 42,133,169,192, 8,208,238, 76, 72,194,140,131, 3,185,232, 3 890 DATA201, 1,240, 9,170,202,138,153,232, 3, 76, 97,194,185,212, 3,153 900 DATA232, 3, 32, 53,195,172,131, 3,185,192, 3,168,177,252,140,130, 3 910 DATA 32, 28,195,153,248, 7,172,130, 3,200,177,252,201, 0,240, 15,172 920 DATA131, 3,185,192, 3,170,232,138,153,192, 3, 76, 97,194,172,131, 3 930 DATA169, 0,153,192, 3, 76, 97,194, 32,173,195, 76, 49,234,120, 32,253 940 DATA174, 32,158,183,134,253,134,169,165,170, 5,253,133,170, 32,253,174 950 DATA 32,158,183,134,254, 32,235,193,165,254,153,232, 3,153,212, 3, 32 960 DATA253,174, 32,158,183,134,254,134,168,160, 0,132,254, 32, 53,195, 32 970 DATA253,174, 32,158,183,138,164,254,145,252,200,132,254,196,168,208,238 980 DATA169, 0,145,252,173, 25, 9, 9, 1,141, 25, 9, 88, 96,132,254,133 990 DATA250,198,169,165,169,160, 0,201, 0,240, 6, 24,106,200, 76, 38,195 1000 DATA230,169,165,250, 96,166,169, 32, 35,192,165,252, 24,105, 20,176, 15 1010 DATA133,252,165,169, 24,106,133,169,201, 0,208,237,134,169, 96,230,253 1020 DATA 76, 65,195, 1, 2, 4, 8, 16, 32, 64,128, 32,253,174, 32,158,183 1030 DATA138, 73,255,133,254,165,170, 37,254,133,170, 96,120, 32,253,174, 32 1040 DATA158,183,134,253,134,250, 32,253,174, 32,158,183, 32,235,193,138,153 1050 DATA162, 3,153,152, 3, 32,253,174, 32,158,183,165,250,133,253, 32,235 1060 DATA193,138,153,171, 3,173,181, 3, 5,250,141,181, 3,173, 25, 9, 9 1070 DATA 2,141, 25, 9, 88, 96,160, 0,173,181, 3, 57, 85,195,208, 6,200 1080 DATA192, 8,208,243, 96,185,162, 3,240, 9,170,202,138,153,162, 3, 76 1090 DATA183,195,185,152, 3,153,162, 3,132,254, 32,101,196,132,250,140, 65 1100 DATA 3,185, 0,208,170,200,185, 0,208,168,132,253,169, 2,133,251,164 1110 DATA254,185,171, 3,164,253,201, 1,240, 33,201, 2,240, 33,201, 3,240 1120 DATA 37,201, 4,240, 40,201, 5,240, 44,201, 6,240, 44,201, 7,240, 48 1130 DATA201, 8,240, 51,164,254, 76,183,195,136, 76, 76,196,136,232, 32,117 1140 DATA196, 76, 76,196,232, 32,117,196, 76, 76,196,232,200, 32,117,196, 76 1150 DATA 76,196,200, 76, 76,196,202,200, 32,192,196, 76, 76,196,202, 32,192 1160 DATA196, 76, 76,196,202,136, 32,192,196, 76, 76,196,198,251,208,154,152 1170 DATA164,250,200,153, 0,208,138,164,250,153, 0,208,164,254, 76,183,195 1180 DATA 76,183,195,234,152,170,160, 0,224, 0,240, 6,202,200,200, 76,106 1190 DATA196, 96,224,255,240, 5,224,100,176, 35, 96,173, 16,208,140,161, 3 1200 DATA164,254, 57, 85,195,240, 6,172,161, 3, 76,121,196,173, 16,208, 25 1210 DATA 85,195,141, 16,208,172,161, 3,162, 0, 96,173, 16,208,140,161, 3 1220 DATA164,254, 57, 85,195,208, 4,172,161, 3, 96,173, 16,208, 89, 85,195 1230 DATA141, 16,208,172,161, 3,162, 0, 96,224, 0,240, 1, 96,173, 16,208 1240 DATA140,161, 3,164,254, 57, 85,195,208, 15,173, 16,208, 25, 85,195,141 1250 DATA 16,208,172,161, 3,162, 99, 96,173, 16,208, 89, 85,195,141, 16,208 1260 DATA172,161, 3,162,255, 96,120, 32,253,174, 32,158,183,138, 73,255,133 1270 DATA254,173,181, 3, 37,254,141,181, 3, 88, 96,255,0,0,0,0,0